home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Text / Misc / TextloaderTNG / Rexx / FW-Bold.rexx next >
Encoding:
OS/2 REXX Batch file  |  1999-09-02  |  530 b   |  31 lines
  1. /* Imports text from TLNG 2.0 to FinalWriter97  */
  2. /* FW97_Bold V1.0 © 10.08.99 by Jochen Grus     */
  3.  
  4. OPTIONS RESULTS
  5. ADDRESS "FINALW.1"
  6. Status FontPath
  7. fontpath = Result
  8. Status FontName
  9. fontname = Result
  10. pos = LASTPOS('_', fontname)
  11. IF (pos == 0) THEN
  12.    DO
  13.    fontpath = 'Normal'
  14.    END
  15. ELSE DO
  16.    pos = LASTPOS('_', fontpath)
  17.    fontpath = 'Normal'
  18.    END
  19. Style fontpath
  20. IF (pos == 0) THEN
  21.    DO
  22.    fontpath = 'Bold'
  23.    END
  24. ELSE DO
  25.    pos = LASTPOS('_', fontpath)
  26.    fontpath = 'Bold'
  27.    END
  28. Style fontpath
  29. Type " "
  30. Paste
  31. exit